home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
geos-archive
/
GEOS-D64
/
GEOS Mega ASM (19xx)(-).d64
/
list4-9
< prev
next >
Wrap
Text File
|
2019-04-13
|
684b
|
43 lines
if .p
t "TopSym"
endif
t "TestMen}"
:Start bit TestFlag
bvs :5
lda #$40
sta TestFlag
lda #$11
jsr SetPattern
ldy #5
::10 ldx WerteTab,y
stx r2,y
dey
bpl :10
jsr Rectangle
::5 lda #<SCREEN_BASE+640
sta a0L
lda #>SCREEN_BASE+640
sta a0H
ldx #20
::20 ldy #0
jsr invert
inc a0H
dex
bne :20
rts
:invert lda (a0),y
::10 eor #$ff
sta (a0),y
dey
bne invert
rts
:TestFlag b 0
:WerteTab b 50,180
w 50,270